home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Futurshow - Un Taglio Al Passato
/
Futurshow - Un Taglio Al Passato.iso
/
mac
/
common.cst
/
00031_Script_31
< prev
next >
Wrap
Text File
|
1998-03-11
|
4KB
|
144 lines
on startMovie
global lout
set lout=FALSE
set the cursor of sprite 85 to [18,19]
set the cursor of sprite 86 to [18,19]
end
on closeAllWindow
put count(the windowList) into temp
repeat with i = 1 to temp
close getAt(the windowList,1)
end repeat
end
on openFloatWindow theFile,theName
cursor 4
put the rect of the stage into wRect
put getAt(wRect,1)+40 into dx
put getAt(wRect,2)+40 into dy
set the fileName of window theName to theFile
put the rect of window theName into wRect
set nRect=rect(0+dx,0+dy,(getAt(wRect,3)-getAt(wRect,1))+dx,(getAt(wRect,4)-getAt(wRect,2))+dy)
set the rect of window theName to nRect
set the windowType of window theName to 49
open window theName
cursor 0
end
on crunchLink theField
set mChar=mouseChar()
if mChar>0 and getCharStyle(mChar,theField)="underline" then
set selCol=the foreColor of member "red"
set stdCol=the foreColor of char mChar of member theField
set sChar=mChar-1
set eChar=mChar+1
repeat while(getCharStyle(sChar,theField)="underline" and sChar>0)
set sChar=sChar-1
end repeat
set sChar=sChar+1
repeat while(getCharStyle(eChar,theField)="underline" and eChar<=length(field theField))
set eChar=eChar+1
end repeat
set eChar=eChar-1
set the foreColor of Char sChar to eChar of member theField to selCol
set flag = TRUE
repeat while stillDown()
if mouseChar()>=sChar and mouseChar()<=eChar then
if not flag then
set the foreColor of char sChar to eChar of member theField to selCol
set flag = TRUE
end if
else
if flag then
set the foreColor of char sChar to eChar of member theField to stdCol
set flag = FALSE
end if
end if
end repeat
set the foreColor of char sChar to eChar of member theField to stdCol
if flag then
put char sChar to eChar of field theField into temp
put "http://"&temp into temp
goToNetPage(temp)
end if
end if
end
on getCharStyle xx,theField
return the fontStyle of char xx of member theField
end
on trackScroll theSprite
puppetSprite clickOn(),TRUE
set theMember=the member of sprite theSprite
set SLine = locVtoLinePos(theMember,the scrollTop of theMember)
repeat while stillDown()
put mouseV() into CurrMouse
put constrainV(clickOn()-1,CurrMouse) into temp
set the locV of sprite clickOn() to temp
put the height of sprite (clickOn()-1) into S
put the locV of sprite clickOn() - the top of sprite (clickOn()-1) into temp
put ((the lineCount of theMember) - 1) * temp / S +1 into SLine
set the scrollTop of theMember to linePosTolocV(theMember,SLine)
updateStage
end repeat
end
on openL
global lout
set sN=80
if not lout then
set lout=TRUE
repeat with i=1 to 13
puppetSprite sN,TRUE
puppetSprite sN+1,TRUE
puppetSprite sN+2,TRUE
puppetSprite sN+3,TRUE
puppetSprite sN+4,TRUE
set the locH of sprite sN to (the locH of sprite sN)-10
set the locH of sprite (sN+1) to (the locH of sprite (sN+1))-10
set the locH of sprite (sN+2) to (the locH of sprite (sN+2))-10
set the locH of sprite (sN+3) to (the locH of sprite (sN+3))-10
set the locH of sprite (sN+4) to (the locH of sprite (sN+4))-10
updateStage
end repeat
end if
end
on closeL
global lout
set sN=80
if lout then
set lout=FALSE
repeat with i=1 to 13
set the locH of sprite sN to (the locH of sprite sN)+10
set the locH of sprite (sN+1) to (the locH of sprite (sN+1))+10
set the locH of sprite (sN+2) to (the locH of sprite (sN+2))+10
set the locH of sprite (sN+3) to (the locH of sprite (sN+3))+10
set the locH of sprite (sN+4) to (the locH of sprite (sN+4))+10
updateStage
puppetSprite sN,FALSE
puppetSprite sN+1,FALSE
puppetSprite sN+2,FALSE
puppetSprite sN+3,FALSE
puppetSprite sN+4,FALSE
end repeat
end if
end